<%@LANGUAGE="VBSCRIPT"%> <% id_placowki = request.QueryString("idp") %> Zarządzanie pytaniami
Moduł zarządzania pytaniami do specjalistów
ogólna baza pytań   poziom aktywności
  Specjalizacje   Liczba pytań   Pytanie bez odpowiedzi   1 odpowiedź   2 i więcej odpowiedzi      
<% zm_kolor = 0 set objsp = server.CreateObject("adodb.recordset") objsp.open "select id_specjalizacji_chor, nazwa_specjalizacji, count(*) as ile, sum(isnull(grupa0,0)) as ile0, sum(isnull(grupa1,0)) as ile1, sum(isnull(grupa2,0)) as ile2 from v_pytania_do_spec where id_specjalizacji_chor in (select id_specjalizacji from placowka_specjalizacje where id_placowki="&id_placowki&") and status=1 group by id_specjalizacji_chor, nazwa_specjalizacji order by nazwa_specjalizacji", conn,1,3 while not objsp.eof if zm_kolor = 0 then kolor_linii = "#ECF0FF" else kolor_linii = "#FFFFFF" end if zm_kolor = 1 - zm_kolor %> <% objsp.movenext wend objsp.close %>
  <%=objsp("nazwa_specjalizacji")%>   <%=objsp("ile0")+objsp("ile1")+objsp("ile2")%>   <%=objsp("ile0")%>   <%=objsp("ile1")%>   <%=objsp("ile2")%>   &idp=<%=id_placowki%>">pokaż